## This script: Education of newspaper readers (in percentages) using  Marktforschung Axel Springer SE
## ORIGINAL DATA WAS AVAILABLE FROM MA SE: https://www.ma-reichweiten.de/
## Unfortunately, the data is no longer publicly available online at the time of publication

rm(list = ls())
library(xtable)
library(tidyverse)


## Load Data
bild_ma <- read_csv2("data/Bild_readership_education_2013.csv")  %>% 
  group_by(Education) %>% 
  summarise(across(where(is.numeric), sum)) %>% ungroup()


bild_ma <- bild_ma %>% 
  mutate(Education = ordered(as.factor(Education),
                             levels = c("Student", 
                                        "Lower Secondary School",
                                        "Secondary School",
                                        "High School",
                                        "University Graduate")))
xtable(bild_ma,
       digits = NULL,
       label = NULL, 
       caption = NULL)



